(fast-lock-cache-name): Replace '\' with '#'.

diff --git a/lisp/fast-lock.el b/lisp/fast-lock.el
index 0268a1ecad3668d3e4d9c0c15dc806c0a3ff5253..d739673288f9f3cb0e77ade40783072e337c26ad 100644 (file)
--- a/lisp/fast-lock.el
+++ b/lisp/fast-lock.el
@@ -535,7 +535,7 @@ See `fast-lock-cache-directory'."
       (concat buffer-file-name ".flc")
     (let* ((bufile (expand-file-name buffer-file-truename))
           (chars-alist
-           (if (eq system-type 'emx)
+           (if (memq system-type '(emx windowsnt))
                '((?/ . (?#)) (?# . (?# ?#)) (?: . (?\;)) (?\; . (?\; ?\;)))
              '((?/ . (?#)) (?# . (?# ?#)))))
           (mapchars